home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbpictxt.dxr / 00001_Start Stop Code.ls next >
Encoding:
Text File  |  2000-01-27  |  1.1 KB  |  53 lines
  1. on startMovie
  2.   if count(the windowList) = 0 then
  3.     clearGlobals()
  4.     case #a of
  5.       #a:
  6.         fn = "Bush, George W."
  7.       #b:
  8.         fn = "bernstein, carl"
  9.       #c:
  10.         fn = "Ch√°vez, C√©sar"
  11.       #g:
  12.         fn = "Georgia2"
  13.       #n:
  14.         fn = "Nixon, Richard"
  15.       #s:
  16.         fn = "S√£o Tom√© and Pr√≠ncipe"
  17.       #Y:
  18.         fn = "yemen"
  19.       #zz:
  20.         fn = "Albright, Madeleine"
  21.     end case
  22.     init(fn && " (dummy title)", fn)
  23.   end if
  24. end
  25.  
  26. on CloseMIAW
  27.   global gDBPicttextVarList, gForgetList
  28.   go(the frame + 1)
  29.   MyObj = getaProp(gDBPicttextVarList, GetObjProp())
  30.   condemn(MyObj)
  31.   deleteProp(gDBPicttextVarList, GetObjProp())
  32.   append(gForgetList, the activeWindow)
  33. end
  34.  
  35. on changePicTxt
  36.   the itemDelimiter = ":"
  37.   repeat with i = 1 to 792
  38.     mem = member(i, "DBPicTxt.CST")
  39.     if mem.type = #text then
  40.       alert("Text member used for " & i)
  41.       next repeat
  42.     end if
  43.     if mem.type = #field then
  44.       newRect = mem.rect
  45.       newRect.right = 397
  46.       mem.rect = newRect
  47.       mem.alignment = "left"
  48.       mem.font = "Helvetica"
  49.       mem.fontSize = 12
  50.     end if
  51.   end repeat
  52. end
  53.